home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / UTILITY.EXE / PRNTEST.APP < prev    next >
Text File  |  1987-12-07  |  1KB  |  47 lines
  1. 'PRNTEST.APP
  2. ' by Chan Shippy
  3. '    Rt. 1 Box 87
  4. '    Colome, SD  57528
  5. ' For IBM/MS-DOS ZBasic ONLY!
  6. '
  7. ' Modified to include check for printer selected
  8. ' Greg Branche, 10/21/87
  9. '
  10. CLS : MODE 3
  11. GOSUB "Test Prn"
  12. IF V$ = CHR$(27) THEN END 'Abort printing
  13. LPRINT "Yep, the printer's ready!"
  14. END
  15.  
  16. LONG FN Testprn(PRNum)
  17.   ' PRNum should usually be 0
  18.   tst% = 0
  19.   MACHLG &8B,&16,PRNum
  20.   MACHLG &B4,&02,&CD,&17,&F6,&C4,&6F
  21.   MACHLG &75,&04,&FF,&06,tst%
  22.   ' 1 = Printer Ready, 0 = Not Ready
  23. END FN = tst%
  24.  
  25. "Test Prn"
  26. LONG IF FN Testprn(0)
  27.   RETURN 'printer is ready!
  28. XELSE
  29.   SOUND 800,50 : SOUND 600,50 : SOUND 800,50
  30.   LOCATE 0,24 : CLS LINE
  31.   LOCATE 10,24 : COLOR 15,0
  32.   PRINT "Printer NOT READY! ";
  33.   PRINT "<R> Retry, <ESC> Abort Printing";
  34.   COLOR 7,0
  35.   "Try Again"
  36.   DO
  37.     V$ = INKEY$
  38.   UNTIL LEN(V$)
  39.   V$ = UCASE$(V$)
  40.   LONG IF V$ = "R"
  41.     GOTO "Test Prn"
  42.   XELSE
  43.     IF V$ = CHR$(27) THEN RETURN
  44.   END IF
  45.   SOUND 800,130 : GOTO "Try Again"
  46. END IF
  47.